\CALL SET_STANDARD_ONKEYS
\X RESIDENTIAL\MOVE 11100 TO CURR_PG\ON KEY PG_UP JUMP OPEN_SCRN\ON KEY PG_DN JUMP INDUSTRIAL\+
\MOVE 45 TO V\CALLM SUB_HEAD
Residential Applications
\"
\X TAG11110\ON KEY 7181\IF CURR_PG>=11120\JUMP TAG11120\ENDIF\MOVE 11110 TO CURR_PG
\LINE 40,170,590,680,23,BF
\MOVE 45 TO V\CALLM SETUP_TXT
\"
In your home, there are probably many pumps.  If you have a well, there may be Jet Pump, based on the "impeller" mechanism shown on the right, to bring the water up the well.
\"
You'll see a lot of Impeller Pumps in this tutorial since they are very common, and their method of operation will be explained later.
\"
Many household appliances have pumps within them, including refrigerators and air conditioners.  In the yard, fountains and chain saws have water and fuel pumps, respectively.
\"
\MOVE 700 TO Q\MOVE 250 TO R\MOVE 960 TO S\MOVE 520 TO T\MOVE 9 TO U\CALLM TUBE_BOX
\MOVE 'IMPELDBL' TO PIC_FLNM\CALLM RD_PIC\CALLM WAITBOX
\ON KEY 7181 JUMP WELL_OFF\ROUNDS -1 SPEED 33\SHOW L=700,250
\IF LAST_ERROR=0\SHOW F=1,-1\ELSE\SHOW F=1,1\WAIT NOW -1\ENDIF
\X WELL_OFF\CALLM WAITOFF\LINE 620,150,1024,700,1,BF
\X TAG11120\ON KEY 7181\IF CURR_PG>=11130\JUMP TAG11130\ENDIF\MOVE 11120 TO CURR_PG
\MOVE 45 TO V\CALLM SETUP_TXT
\"
If you have a fish tank, it will have a pump or two--to pump water through a filter, and air through the water.  Illustrated on the right is a simple and very common type of fish tank air pump.
\"
In this pump a "diaphram" is moved in and out by an small AC motor.  Two valves alternately open and close with each cycle, forcing a small quantity of air into the tube which runs to the fish tank.
\"
Regular AC house current drives the motor, so the diaphram is moved in and out 60 times per second.
\"
\"
\"
\MOVE 630 TO Q\MOVE 300 TO R\MOVE 999 TO S\MOVE 550 TO T\MOVE 9 TO U\CALLM TUBE_BOX
\MOVE "FISH3DIA" TO PIC_FLNM\CALLM RD_PIC\CALLM WAITBOX
\ON KEY 7181 JUMP FISH_OFF\ROUNDS -1 SPEED 13\SHOW L=630,300
\IF LAST_ERROR=0\SHOW F=1,-1\ELSE\SHOW F=1,1\WAIT NOW -1\ENDIF
\X FISH_OFF\CALLM WAITOFF\LINE 610,150,1024,700,1,BF
\X TAG11130\ON KEY 7181\IF CURR_PG>=11140\JUMP TAG11140\ENDIF\MOVE 11130 TO CURR_PG
\MOVE 45 TO V\CALLM SETUP_TXT
\"
In rural locations where city water is not available, a Piston Pump such as the one shown on the right might be used to bring water up from a cistern or well (a Jet Pump like the one shown earlier may be used too.)
\"
This type of pump is usually driven by a small electric motor which rotates the disk either directly or via a belt or gear assembly.  Suction is created when the piston moves toward the disk, drawing water up from below.
\"
On the return half of the cycle the top valve opens and the bottom one closes, and the water is forced up through the top pipe.
\MOVE 670 TO Q\MOVE 380 TO R\MOVE 939 TO S\MOVE 550 TO T\MOVE 9 TO U\CALLM TUBE_BOX
\MOVE "PISTDAP6" TO PIC_FLNM\CALLM RD_PIC\CALLM WAITBOX
\ON KEY 7181 JUMP PIST_OFF\ROUNDS -1 SPEED 18\SHOW L=670,380
\IF LAST_ERROR=0\SHOW F=1,-1\ELSE\SHOW F=1,1\WAIT NOW -1\ENDIF
\X PIST_OFF\CALLM WAITOFF\LINE 610,150,1024,700,1,BF
\X TAG11140\ON KEY 7181\IF CURR_PG>=11150\JUMP INDUSTRIAL\ENDIF\MOVE 11140 TO CURR_PG
\MOVE 40 TO Q\MOVE 170 TO R\MOVE 590 TO S\MOVE 680 TO T\MOVE 12 TO U\LINE Q,R,S,T,23,BF
\MOVE 45 TO V\CALLM SETUP_TXT
\"
Low cellars and basements often have a Sump Pump to remove water that seeps in through cracks in the foundation.
\"
Fire extinquishers (which every house should have!) are sometimes designed with a pumping mechanism.
\"
There are many other places around the house where pumps play a vital role.  If you take a careful look you'll probably find lots of pumps all around you!
\"
\"
\"
\"
\"
\"
\MOVE 690 TO Q\MOVE 330 TO R\MOVE 980 TO S\MOVE 460 TO T\MOVE 4 TO U\CALLM TUBE_BOX
\LOCATE 710,370\WIDTH 260 DOTS CENTERED\OVER 1,A,52,1
You have completed this section!
\CALLM WAITBOX\WAIT NOW -1
\X INDUSTRIAL\CALLM WAITOFF\MOVE 'WHE_INDU' TO TEXT_FLNM\CALLM RD_TXT\JUMP MAINPAGE
\X OPEN_SCRN\CALLM WAITOFF\MOVE 'WHEREPUM' TO TEXT_FLNM\CALLM RD_TXT\JUMP MAINPAGE
\X MAINPAGE\CALLM WAITOFF\MOVE 'PUMPMENU' TO TEXT_FLNM\CALLM RD_TXT
\X ALT_QUITED\ON ERROR\END
\X SET_STANDARD_ONKEYS\ON KEY F10 JUMP MAINPAGE\ON KEY 4096 JUMP ALT_QUITED\ON KEY F5 JUMP GLOSSARY\CALLM SET_ERROR_ONKEYS\RETURN
\X CLEAR_ONKEYS\CLEAR ON KEYS\CALL SET_STANDARD_ONKEYS\RETURN
\X GLOSSARY\MOVE 'GLOSSARY' TO TEXT_FLNM\CALLM RD_TXT